﻿Namespace Security

    Public Class ProcessVO

        Private _code As String
        Private _processName As String
        Private _groupCode As ProcessGroupVO

        Sub New(entity As Data.BaseModel.Process)
            code = entity.Code
            processName = entity.Name

            If entity.ProcessGroup IsNot Nothing Then
                group = New ProcessGroupVO(entity.ProcessGroup)
            End If

        End Sub

        Public Property code As String
            Get
                Return _code
            End Get
            Set(value As String)
                _code = value
            End Set
        End Property

        Public Property processName As String
            Get
                Return _processName
            End Get
            Set(value As String)
                _processName = value
            End Set
        End Property


        Public Property group As ProcessGroupVO
            Get
                Return _groupCode
            End Get
            Set(ByVal value As ProcessGroupVO)
                _groupCode = value
            End Set
        End Property


        Sub New()
        End Sub

        Sub New(group As ProcessGroupVO, code As String, name As String)
            Me.code = code
            Me.processName = name
            Me.group = group
        End Sub

    End Class

End Namespace